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1. ALLMÄNT 

Options-PROM enl ovan innehåller drivrutiner för kommunikation via 
I/O kort eller via datorns två serieutgångar för: 

o 01 i ka skrivare, 
o Asynkron terminal. 

o Datavisionterminal (ej ABC800M, ABC806 endast tillsammans med 
drivrutin laddad från skiva). 

På kanal B (V24:) jobbar man ned en sändnings- och mottagningsbuf- 
fert på 80 tecken, son är interruptstyrd. Vidare finns det rutiner 
för kontroll av paritet och XON/XOFF. När nan gör OPEN eller PREPARE 
kan man kontrollera att skrivaren är ansluten, detta för att man 
inte skall bli hängande vid PRIUT #nr. Erhålls inte DCD ges felmed¬ 
delande 42 (enheten ej klar). 

Följande kommandon och instruktioner är tillgängliga: 

LIST PR:parameterblock 

LOAD PR:parameterblock 

PREPARE "PR:parameterblock" AS FILE nr 

OPEN "PR:parameterblock" AS FILE nr 

LIST V24:paraneterblock 

LOAD V2A:parameterbi ock 

PREPARE "V24:parameterblock" AS FILE nr 

OPEN "V24:parameterbi ock" AS FILE nr 

Vid initierinq med PREPARE ges fornfeed (FF), dvs ny sida, vid 
stängning (CLOSE) av filen. 

Paraneterblocket består av upp till 11 tecken förutom enhetsnann. 
För information on parameterblocket - se avsnitt 3. Kanal A (märkt 
CH. A) öppnas med PR: och kanal B (märkt CH. B) öppnas med V24:. 


2. "SPLIT SPEED" 

Datorn är vid leverans byglad för samma mottagnings- och sändnings- 
hastighet, men kan byglas om till split speed, dvs olika hastigheter 
på sändning och mottagning. 

Betr. ABC802 och ABC806, se avsnitt om BYGLINGAR i bruksanvisningen. 

I ABC8D0 finns ett byglingsfält, SI och S2, på PU-kortet, till höger 
om anslutningskabeln till tangentbordet. 







I ABC800 ser byglingsfältet ut så här vid leverans: 

SI S2 

0 - 0 0 - 0 0 (!) 0 - 0 

1 2 3 4 1 2 3 4 

För att erhålla split speed ska S2 byglas om enligt nedan: 
SI S2 

o 

O-O O-O O-O O-0 

1 2 3 4 1 2 3 4 


3. PARAMETERBLOCKETS UPPBYGGNAD 

Om man inte vill använda de standardparametrar (default) som finns 
definierade i options-PROMmet, kan man byta ut en eller flera para¬ 
metrar, utan att skriva om hela parameterbiocket. Vill man ändra 
någon parameter i parameterblocket utan att skriva om samtliga para¬ 
meter skriver man bara den nya parametern. I övriga positioner 
skrivs 'Ö'. Exempel: 

OPEN 'PRÖÖÖn2ÖnÖ.ÖÖB' AS FILE Nr 

Standardvärdena är narkerade med def (default) nedan. Angivna stan¬ 
dardvärden gäller för både PR: och V24:. 



l:a tecknet anger terminal eller printertyp. 


Bokstav 

C 

P 

T 

U 

V (def) 
W 


Typ 

Centronics 

SP1 

Terminal 

UART 

V24 simulerad UART 
Datavision 


Exempel: LIST PR V 


(endast PR:) 

(endast PR:) 

(endast V24: - CH. B) 

(endast PR:) 

(PR: - CH. A eller V24: - CH.B) 
(endast V24: - CH. B) 



2:a tecknet anger paritet och XON/XOFF. 

A B C D - Ingen paritetscheck+XON/XOFF 
F G H I - Paritetscheck 

E O M S - Ingen paritetscheck 
T U V W - Paritetscheck + XON/XOFF 

^-Space 

-Mark 

-Odd (udda) 

- Even (jämn) 
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Som standardvärde gäller bokstaven S (paritet space och ingen pari- 
tetscheck). 

Exempel: LIST PR:VS 


3:e tecknet anger antalet "MUL" (ASCII-tecken nr noll) som sänds 

etter radtranmatnina. 

** / 

Bokstav 

A (def) 

B 
C 


Z 

Exempel: 


4:e tecknet anger antal tecken/rad. 


Siffra Antal 

1 40 

2 72 

3 (def) 80 

4 120 

5 132 

6 158 

7 254 


Exempel: LIST PR:VSA3 

För att detta ska ha någon inverkan måste formatstyrtecken son 
genererar CRLF väljas (se 6:e tecknet). 


5 e tecknet anger antal rader som ska hoppas över vid sidslut 
Tperforeringsskip). 


Siffra Antal 

0 0 

1 1 

2 2 

3 3 

4 4 

5 5 

6 (def) 6 

7 7 

8 8 

9 9 


Exempel: LIST PR VSA36 


Antal 

0 

2 

4 






c. r 


l 


50 

LIST PR:VSA 
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fi:e tecknet anger formatstyrtecken för skrivare sant överförings- 
typ i termnalmode. 


A E I M - Ej CRLF vid radslut, ej FF-simulering 

B F J N - Ej CRLF vid radslut, FF-simulering 

C G K 0 - CRLF vid radslut, ej FF-simulering 

D H L P - CRLF vid radslut, FF-sinulering 



Halv duplex, om CR mottages genereras LF 
Full duplex, om CR mottages genereras LF 
Halv duplex, ej extra LF om CR mottages 
Full duplex, ej extra LF om CR mottages 


CRLF = Vagnretur och radframmatning. 

CR = Vagnretur (Carrige return). 

LF = Radframmatning (Line feed). 

FF = Ny sida (Form feed). 

Som standardvärde gäller B (Ej CRLF vid radslut, FF-simulering för 
skrivare och full duplex, ej extra LF om CR mottages i terminal- 
mode). 


FF-simulering fungerar endast mot skrivare. FF-simulering betyder 
att datorns printerrutin skickar ett antal LF (Line feed) för att 
komma till nästa sida. Ej FF-simulering betyder att printerrutinen 
skickar FF (Form Feed) som sedan tas om hand i skrivaren som gör 
sidframmatning. CR och LF generering bryter raden vid radslut efter 
angiven radlängd. 

Exempel: LIST PRVSA36B 


7:e och 8:e teckne n anger antal rader/sida. 

Här anges antal rader per sida. Man kan ange högst 99 rader. Som 
standardvärde gäller 72 rader/sida, detta motsvarar en pappershöjd 
på 12". 

OBS! Antalet måste alltid anges med två siffror. 

Siffra Rader/sida 


01 

1 

02 

2 

• 

72 (def) 

72 

• 

99 

• 

99 


Exempel: LIST PR:VSA36B72 





9:e tecknet anger överföringshastighet (baudrate). 


Om datorn byglas om för split speed anger denna parameter mottag- 
ni ngshastigheten. I annat fall gäller parametern för både sändnings- 
och mottaoningshastighet. 

OBS! Siffran skall föregås av en punkt. 


Siffra Hastighet (baud) 


O 


75 


1 

2 

3 

4 

5 (def) 

6 

7 

8 


110 

300 

600 

1200 

2400 

4800 

9600 

19200 


Exempel: LIST PR:VSA36B72.5 


10:e tecknet anger sändningshastighet (gäller endast i split 
speed). 

Siffra Hastighet (baud) 


0 75 

1 110 


2 300 

3 600 

4 1200 


5 (def) 

6 

7 

8 


2400 

4800 

9600 

19200 


Exempel: LIST PR VSA36B72.55 
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11:e tecknet. 


Test sker genom att kontrollera DCD (pin 8 i kontakt CH. A och CH. 
B) vid OPEN eller PREPARE. Om DCD saknas får man felmeddelande 42, 
enheten ej klar. 

Möjlighet att maska högsta biten i dataordet. 

OBS! Om man är i mode E,F,G eller H bör man köra utan paritets test 
eller med paritet 'SPACE'. 

Nedanstående gäller endast CH. B. 

Normal XON/XOFF hantering innebär att options-PROMmet skickar XOFF 
när det är 50 tecken-positioner lediga i bufferten. XON skickas när 
det finns 70 eller fler tecken-positioner lediga i bufferten. 

Special XON/XOFF hantering innebär att options-PROflmet skickar XON 
när man gör INPUT, INPUT LINE eller GET. XOFF sänds när man har fått 
alla data. Under tiden som man håller på att hämta data så fungerer 
XON/XOFF hanteringen som så kallad 'normal XON/XOFF hantering'. 


A B C D - Bit 7 är oförändrad på inkommande data 
E F G H - Bit 7 tas bort på inkommande data 
I J K L - Reserverad 
M N 0 P - Reserverad 


DCD test vid OPEN/PREPARE, 
special XON/XOFF hantering 

Ingen DCD test, 

special XON/XOFF hantering 


DCD test OPEN/PREPARE, 
normal XON/XOFF hantering 

Ingen DCD test, 

normal XON/XOFF hantering 


Som default gäller bokstaven A. 


Exempel: 


LIST PR:VSA36B72.55A 





4. TERMINALMODE 


Med options-PROM kan datorn användas som terminal på två olika sätt. 
Dels som bildskärmsterminal, se 4.1 nedan, eller tillsammans med 
BASICprogram, se 4.2. 

4.1 Bildskärmsterminal 


Vid användning av datorn som terminal motsvarar detta en ADM-3A 
bildskärmsterminal. När denna form av terminal används ska första 
tecknet efter V24: vara ett T. I övrigt byggs parameterblocket upp 
enligt ovan. Interfacet, som kommunikationen sker över, är 
RS232C/V24 anslutning. Dataordet består av 1 startbit, 7 databitar^ 
1 paritetsbit och l'stoppbit. Övergång till terminalmode kan ske pa 
något av följande sätt: 


LOAD V24:TSA30B24.22A 


OPEN 11 V24:TSA30B24.22A" AS FILE 1 
INPUT #l,An 

OPEN "V24:TSA30B24.22A" AS FILE 1 
INPUT LIME #1,An 

OPEN "V24:TSA30B24.22A" AS FILE 1 
GET #1,Ab 


Det är möjligt att fördefiniera PF-tangenter innan man går in i ter¬ 
minalmode. (PF-tangenterna för ABC802/806 med tangentbord ABC55 
finns beskrivna i respektive bruksanvisning). När man trycker en de¬ 
finierad PF-tangent skickas den sträng som har definierats, t ex PF1 
har definierats som 'LOGIN' detta innebär att när PF1 trycks ner 
sänder options-PROMmet strängen 'LOGIN'. För att definiera en PF- 
tangent skapar man en strängvariabel, först i variabeln läggs ASCII- 
koden för funktionstangenten och därefter den sträng som skall skic¬ 
kas när funktionstangenten trycks ner. Sedan upprepas ASCII-kod och 
sträng för nästa funktionstangent etc. När man har definierat de 
funktionstangenter som man vill använda måste strängen avslutas 
med ASCIIkod 255. Se nedanstående exempel: 


Aa=CHRn( 192)+"LOGIN"+CHRn(13,193)+"HELP"+CHRu(13,194)+"LIB"+CHRn(13, 
255) 

POKE PEEK2(65500)+8,VAROOT(An),SWAP%(VAR00T(An)) 

LOAD V24:TEA30E24.22A 


Uthopp ur terminalmode kan ske på följande tre sätt: 

1. Genom att trycka en PF-tangent (funktionstangent) som inte är 
fördefinierad. Detta ger felmeddelande 53. Om man använder ett 
BASICprogram kan detta fel hanteras med en felhanterare. 

2. Genom att datorn tar emot EMQ (ASCII-värde 5). Detta ger felmed¬ 
delande 34. Om man använder ett BASICprogram kan detta fel hante¬ 
ras med en felhanterare. 

3. Genom att datorn tar emot STX (ASCII-värde 2). De efterföjande 
tecknen fram till CR (ASCII-värde 13) kommer att hamna i den 
strängvariabel som används. Detta gäller bara INPUT #nr och INPUT 
LINE #nr. 
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Följande tangentkoder används i terminal mode: 

CTRL-S (ASCII-värde 19) stoppar utskriften på bildskärmen. 

CTRL-Q (ASCII-värde 17) startar utskriften på bildskärmen. 

<-- eller 

CTRL-H (ASCII-värde 8) flyctar markören ett steg till vänster. 

CTRL-J (ASCII-värde 10) flyttar ner markören en rad. 

CTRL-K (ASCII-värde 11) flyttar upp markören en rad. 

CTRL-L (ASCII-värde 12) flyttar markören ett steg till höger. 

CTRL-Z (ASCII-värde 26) tömmer bildskärmen och placerar markören i 

övre vänstra hörnet. 

CTRL-U (ASCII-värde 30) placerar markören i övre vänstra hörnet utan 
att tömma bildskärmen. 

Man kan placera markören i valfri position på bildskärmen genom att 
skicka ASCII-värde 27,61 följt av två tecken som anger rad och 
kolumn. Tredje ASCIItecknet, värde mellan 32 och 55, placerar markö¬ 
ren på rad 0 till 23. Fjärde ASCII-tecknet, värde mellan 32 och 
71/111, anger kolumn. 

Exempel: 

Följande ASCII-tecken tas emot: 27,61,42,57. Detta medför att markö¬ 
ren placeras på rad 10 och kolumn 25. 

För att använda datorn som Datavisionsterminal, måste datorn kopplas 
om för split speed, se avsnitt 2. (ABC800M går ej att använda som 
Datavisionsterminal. OptionsPROMmet i ABC806 innehåller ingen driv¬ 
rutin för Datavision, men drivrutinen kan laddas från skiva, se 
separat bruksanvisning). 

Skriv: 

LOAD V24:WEA10K24.40A 


4.2 Terminal 

Vill man ha utskrift på fil, t ex skrivare eller flexskiva, skriver 
man ett V efter enheten V24:. I övrigt byggs parameterblocket upp 
enliqt avsnitt 3. Se programexemplet nedan. 

För att kontrollera om man har den nya versionen av options-PROM kan 
man i ett program skriva: 

IF PEEK2(PEEK2(65500))<>10 THEN felhanterare 

För att erhålla en större inputbuffert än 80 tecken skriv: 

DIM Buffertn=Storlek 

POKE PEEK2(65500)+2,VAR00T(Buffertn),SWAP%(VAROOT(Buffertn)) 

OPEN 'V24:' AS FILE nr 
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De inkommande tecknen lagras i detta fall i strängvariabeln 'Buf- 
fertn'. 

OBS! POKE måste göras innan man gör OPEN. 

Antal tecken i inputbufferten kontrolleras med: 

Antal tecken=PEEK2(PEEK2(65500)+6) 

För att se hur mycket tecken det finns ledigt i outputbufferten 
skriver man: 

Ledig plats=PEEK2(PEEK2(65500)+4) 

Vid användning av GET och PUT har man följande dataformat: 1 start¬ 
bit, 8 databitar och 1 stoppbit. Med INPUT, INPUT LINE och PRINT är 
dataformatet följande: 1 startbit, 7 databitar, 1 paritetsbit och 1 
stoppbit. 

Nedanstående exempel visar hur man kan använda datorn som terminal 
tillsammans med ett BASIC-program. Ta alltid för vana att avsluta 
programmen genom att trycka PF1, varvid alla filer stängs. I pro¬ 
gramexemplen som sänder en fil startas sändningen med PF2. 

För ABCR02/806 med tangentbord ABC55 finns översättningstabell över 
PF-tangenterna i respektive bruksanvisning. 
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100 REM !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 

110 REM i. ! 

120 REM ! TERMINAL ! 

130 REM ! Exempel på hur man ! 

140 REM ! sparar inkommande ! 

150 REM ! text på fil ! 

160 REM ! Avbryt med PF1 ! 

170 REM ! (c)LUXOR DATORER AB MOTALA ! 

180 REM ! Ver. 1.2 ! 

190 REM !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 

200 EXTEND 
210 INTEGER 
220 ! 

230 ! 

240 ! 

250 IF PEEK2(PEEK2(65500))<>8 AND PEEK2(PEEK2(65500))<>10 THEN 490 
260 DIM Buffem=10000 

270 POKE PEEK2(65500)+2,VAR00T(Buffern),SWAP%(VAROOT(Buffern)) 

280 DIM Filnamen=16 
290 ! 

300 ! 

310 ! 

320 ! 

330 ! 

340 PRINT CHRn(12) '* Terminal * Spara inkommande tecken' 

350 PRINT STRINGn(PEEK(65364),61) 

360 PRINT CUR(3,0) 'Sparas under filnamn: '; 

370 INPUT "Filnamen 
380 ! 

390 ! 

400 ! 

410 OPEN 'V24:VEA30E24.2' AS FILE 1 
420 PREPARE Filnamen AS FILE 2 
430 Dummyn=FNPosn(1) 

440 IF PEEK2(PEEK2(65500) +6)<>0 THEN PRINT FNInchrn; 

450 IF SYS(5)=128 THEN Dummyn=FNInkeyn 

460 IF ASCII(Dummyn)=192 THEN 510 ELSE PRINT Dummyn; 

470 GOTO 430 
480 ! 

490 PRINT 'Fel typ av options-PROM!' CHRn(7) 

500 ! 

510 CLOSE 1 
520 CLOSE 2 
530 END 
540 ! 

550 ! 

560 ! Läs tecken från V24:, skriv på fil 
570 ! 

580 DEF FNInchrn LOCAL Dummyn=l 
590 Dummyn=FNPosn(0) 

600 GET #l,Buffem 
610 PUT #2,Buffem 

620 Dummyn=CHRn(ASCII(Buffem) AND 127) 

630 RETURN Dummyn 
640 FNEND 
650 ! 

660 ! 

670 ! Läs tecken från tangenbord, skriv på V24: 

680 ! 

690 DEF FNInkeyn LOCAL Dummyn=l 
700 GET Dummyn 
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710 IF ASCII(Dummyn)=192 THEN RETURN Dummyn 
720 PRINT #1.Dummyn; 

730 RETURN Dummyn 
740 FNEND 
750 ! 

760 ! 

770 ! 

780 ! 

790 DEF FNPosnfSläckt) LOCAL Minne 
800 IF PEEK(65364)=40 THEN 950 
810 ! 

820 ! Cursor 80 tecken 

830 ! 

840 OUT 56,10 

850 OUT 57 40-32*Släckt 

860 Minne=30720+PEEK(65363)*80+PEEK(65362) 

870 OUT 56,14 

880 OUT 57,SWAP%(Minne) 

890 OUT 56,15 

900 OUT 57,Minne 

910 RETURN " 

920 ! 

930 ! Cursor 40 tecken 

940 ! 

950 POKE 31744+PEEK(65363)*128-PEEK(65363)/8*984+PEEK(65362),128*S1 äckt 
960 RETURN " 

970 FNEND 
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100 REM !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 

110 REM ! ! 

120 REM ! TERMINAL ! 

130 REM ! Exempel på hur man ! 

140 REM ! sänder en bi när-fil, ! 

145 REM ! t ex ett .BAC-program ! 

150 REM ! Starta sändning ned PF2 ! 

160 REM ! Avbryt med PF1 ! 

170 REM ! (c)LUXOR DATORER AB MOTALA ! 

180 REM ! Ver. 1.1 ! 

190 REM !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 

200 EXTEND” 

210 IHTEGER 
220 ! 

230 ! 

240 ! 

250 IF PEEK2(PEFK2(65500))<>8 AND PEEK2(PEEK2(65500))<>10 THEN 500 
260 DIM Buffem=10000 

270 POKE PEEK2(65500)+2,VAR00T(Buffem),SWAP%(VAROOT(Buffem)) 

280 DIM Filnanen=16 
290 ! 

300 ! 

310 ! 

320 ! 

330 PRINT CHRaf12) '* Terminal * Sänd fil på V24: (CH. B)' 

340 PRINT STRINGn(PEEK(65364),61) 

350 PRINT CUR(3.0) 'Ange fil som skall sändas:'; 

360 INPUT "Filnanen 
370 ! 

380 ! 

390 ! 

400 OPEN 'V24:VEA30E24.2' AS FILE 1 
410 OPEN Filnanen AS FILE 2 
420 Dummyn=FNPosn(1) 

430 IF Eof=38 OR Start=0 THEN 450 

440 IF PEEK2( PEEK2(65500) +4)<>0 THEN Dummyn=FNPutchm 
450 IF PEEK2(PEEK2(65500)+6)<>0 THEN PRINT FNInchm; 

460 IF SYS(5)=128 THEN Dummyn=FNInkeyn 

470 IF ASCII(Dummyn)=192 THEN 520 ELSE PRINT Dummyn; 

480 GOTO 420 
490 ! 

500 PRINT 'Fel typ av options-PROM!' CHRn(7) 

510 ! 

520 CLOSE 1 
530 END 
540 ! 

550 ! Läs tecken från V24: 

560 ! 

570 DEF FNInchm LOCAL Dummyn=l 
580 Dummyn=FNPosn(0) 

590 GET #l,Buffem 

600 Dummyn=CHRn(ASCII(Buffem) AND 127) 

610 RETURN Dummyn 
620 FNEND 
630 ! 

640 ! Läs tecken från tangentbord, skriv på V24: 

650 ! 

660 DEF FNInkeyn LOCAL Dummyn=l 
670 Dummyn=FNPosn(0) 

680 GET Dummyn 

690 IF ASCII(Dummyn)=193 THEN Start=l : RETURN " 
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700 IF Start=l OR ASCII (Dummyn) =192 THEN RETURN Dunmyn 

710 PRINT #1,Dummyn; 

720 RETURN Dummyn 

730 FNEND 
740 ! 

750 ! Sänd textfil på V24: 

760 ! 

770 DEF FNPutchm LOCAL Buffertn=80 
780 Dumnyn=FNPosn(0) 

790 ON ERROR GOTO 830 

800 GET #2,Bufferta COUNT PEEK2(PEEK2(65500)+4)-1 

810 PUT #l,Buffertn 

820 RETURN " 

830 CLOSE 2 
840 Eof=38 
850 Start=0 
860 RETURN " 

870 FNEND 
880 ! 

890 ! Skriv cursor 
900 ! 

910 DEF FNPosa(Släckt) LOCAL Minne 
9?0 IF PEEK(65364)=40 THEN 1070 
930 i 

940 ! Cursor 80 tecken 

950 ] 

960 OUT 56,10 

970 OUT 57,40-32*Släckt 

980 Minne=30720+PEEK(65363)*80+PEEK(65362) 

990 OUT 56,14 

1000 OUT 57,SWAP%(Minne) 

1010 OUT 56,15 

1020 OUT 57,Minne 

1030 RETURN " 

1040 ! 

1050 ! Cursor 40 tecken 

1060 ! 

1070 POKE 31744+PEEK(65363)*128-PEEK(65363)/8*984+PEEK(65362), 128*S1 äckt 
1080 RETURN " 

1090 FNEND 
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100 REM !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 

110 REM ! ! 

120 REM ! TERMINAL ! 

130 REM ! Exempel på hur man ! 

140 REM ! sänder en textfil ! 

150 REM ! Starta sändninq med PF2 ! 

160 REM ! Avbryt med PF1 ! 

170 REM ! (c)LUXOR DATORER AB MOTALA ! 

180 REM ! Ver. 1.1 ! 

190 REM !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 

200 EXTEND 
210 INTEGER 
220 ! 

230 ! 

240 ! 

250 IF PEEK2(PEEK2(65500))<>8 AND PEEK2(PEEK2(65500))<>10 THEN 500 
260 DIM Buffem=10000 

270 POKE PEEK2(65500)+2,VAROOT(Buffern),SWAP%(VAR00T( Buffern)) 

280 DIM Filnamen=16 
290 DIM Inlinu=160 
300 ! 

310 ! 

320 ! 

330 PRINT CHRn(12) 'ASCII-text-filsändning Sänd fil på V24: (CH. B)' 
340 PRINT STRINGn(PEEK(65364),61) 

350 PRINT CUR(3,0) 'Ange fil som skall sändas:'; 

360 INPUT "Filnanen 
370 ! 

380 ! 

390 ! 

400 OPEN 'V24:VEA30E24.2' AS FILE 1 
410 OPEN Filnamen AS FILE 2 
420 Dummyn=FNPosn(1) 

430 IF Eof=38 OR Start=0 THEN 450 

440 IF PEEK2(PEEK2(65500)+4)<>0 THEN Dumrnyn=FNPutchrn 
450 IF PEEK2(PEEK2(65500)+6)<>0 THEN PRINT FNInchrn; 

460 IF SYS(5)=128 THEN Dummyn=FNInkeyn 

470 IF ASCII(Dummyn)=192 THEN 520 ELSE PRINT Dummyn; 

480 GOTO 420 
490 ! 

500 PRINT 'Fel typ av options-PROM!' CHRn(7) 

510 ! 

520 CLOSE 1 
530 END 
540 ! 

550 ! Läs tecken från V24: 

560 ! 

570 DEF FNInchrn LOCAL Dummyn=l 
580 Dummyn=FNPosn(0) 

590 GET #1.Buffern 

600 Dummyn=CHRn(ASCII(Buffern) AND 127) 

610 RETURN Dummyn 
620 FMEND 
630 ! 

640 ! Läs tecken från tangenbord, skriv på V24: 

650 ! 

660 DEF FNInkeyu LOCAL Dummyn=l 
670 Dumnyn=FNPosn(0) 

680 GET Dummyn 

690 IF ASCII(Dummyn)=193 THEN Start=l : RETURN " 

700 IF Start=l OR ASCII(Dummyn)=192 THEN RETURN Dummyn 
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